Apple Stock Analysis

Column

From 2019 to 2022

Before Covid

During Covid

After Covid

Column

Apple Highest Stock Price during Covid

145.09

Apple Lowest Stock Price during Covid

53.15

Apple Highest Stock price

182.94

Apple lowest Stock price

35.5

Data table (Search for specific dates)

JP Morgan Stock Analysis

Column

From 2019 to 2022

Before Covid

During Covid

After Covid

Column

JPM Highest Stock Price during Covid

165.7

JPM Lowest Stock Price during Covid

76.91

JPM Highest Stock price

172.96

JPM lowest Stock price

76.91

Data table (Search for specific dates)

Moderna Stock Analysis

Column

From 2019 to 2022

Before Covid

During Covid

After Covid

Column

Moderna Highest Stock Price during Covid

189.26

Moderna Lowest Stock Price during Covid

17.91

Moderna Highest Stock price

497.49

Moderna lowest Stock price

11.54

Data table (Search for specific dates)

Tesla Stock Analysis

Column

From 2019 to 2022

Before Covid

During Covid

After Covid

Column

Apple Highest Stock Price during Covid

900.4

Apple Lowest Stock Price during Covid

70.1

Apple Highest Stock price

1243.49

Apple lowest Stock price

35.4

Data table (Search for specific dates)

Amazon Stock Analysis

Column

From 2019 to 2022

Before Covid

During Covid

After Covid

Column

Amazon Highest Stock Price during Covid

3554

Amazon Lowest Stock Price during Covid

1626.03

Amazon Highest Stock price

3773.08

Apple lowest Stock price

1460.93

Data table (Search for specific dates)

Comparison

Column

Before Covid

During Covid

After Covid

Returns

---
title: "Stock Market Visualization Before and After Covid"
output: 
  flexdashboard::flex_dashboard:
    orientation: columns
    vertical_layout: fill
    source_code: embed
    css: styles.css
    theme:
      version: 4
      bootswatch: yeti
---

```{r setup, include=FALSE}
library(flexdashboard)
library(quantmod)
library(highcharter)
library(DT)
library(PerformanceAnalytics)
```

# Apple Stock Analysis

Column {data-width=500, .tabset .tabset-fade}
-----------------------------------------------------------------------

### From 2019 to 2022

```{r}
price_aapl <- getSymbols("AAPL", auto.assign = FALSE, from="2019-01-01", to="2022-04-01")
price_aapl_a <- getSymbols("AAPL", auto.assign=FALSE, from="2019-01-01", to="2020-02-01")
price_aapl_b <- getSymbols("AAPL", auto.assign=FALSE, from="2020-02-01", to="2021-06-01")
price_aapl_c <- getSymbols("AAPL", auto.assign=FALSE, from="2021-06-01", to="2022-04-01")
highchart(type="stock") %>% 
  hc_add_series(price_aapl_a, upColor = "#2ECC71 ", color = "#E74C3C") %>% 
  hc_add_series(price_aapl_b, upColor = "#2ECC71 ", color = "#E74C3C") %>% 
  hc_add_series(price_aapl_c, upColor = "#2ECC71 ", color = "#E74C3C") %>% 
  hc_add_series(SMA(na.omit(Cl(price_aapl)),n=50),name="SMA(50)") %>%
  hc_add_series(SMA(na.omit(Cl(price_aapl)),n=200),name="SMA(200)") %>%
  hc_title(text="Apple Price Candle Stick Chart 2019-2022")
```

### Before Covid

```{r}
highchart(type="stock") %>% 
  hc_add_series(price_aapl_a, upColor = "#2ECC71 ", color = "#E74C3C") %>% 
  hc_title(text="Apple Price Candle Stick Chart from 2019-2020 (before Covid)")
```

### During Covid

```{r}
highchart(type="stock") %>% 
  hc_add_series(price_aapl_b, upColor = "#2ECC71 ", color = "#E74C3C") %>% 
  hc_title(text="Apple Price Candle Stick Chart 2020-2021 (during Covid)")
```

### After Covid

```{r}
highchart(type="stock") %>% 
  hc_add_series(price_aapl_c, upColor = "#2ECC71 ", color = "#E74C3C") %>% 
  hc_title(text="Apple Price Candle Stick Chart 2021-2022 (after Covid)")
```

Column {data-width=300}
-----------------------------------------------------------------------

### Apple Highest Stock Price during Covid

```{r}
appl_df_b <- data.frame(price_aapl_b)
appl_high_b <- max(appl_df_b[ ,2])
valueBox(round(appl_high_b, digits = 2),
         caption = "Apple Stock Highest price during Covid",
         color = "#2ECC71",
         icon = "fa-arrow-up")
```

### Apple Lowest Stock Price during Covid

```{r}
appl_df_b <- data.frame(price_aapl_b)
appl_low_b <- min(appl_df_b[ ,3])
valueBox(round(appl_low_b, digits = 2),
         caption = "Apple Stock Lowest price during Covid",
         color = "#CD6155",
         icon = "fa-arrow-down")
```

### Apple Highest Stock price

```{r}
appl_df <- data.frame(price_aapl)
appl_dt <- appl_df[ ,c(1:4)]
appl_high_a <- max(appl_df[,2])
valueBox(round(appl_high_a, digits = 2), 
         caption = "Apple Stock Highest price from 2019 to 2022",
         color = "#2ECC71",
         icon = "fa-arrow-up")
```

### Apple lowest Stock price 

```{r}
appl_low_a <- min(appl_df[,3])
valueBox(round(appl_low_a, digits = 2), 
         caption = "Apple Stock Lowest price from 2019 to 2022",
         color = "#CD6155",
         icon = "fa-arrow-down")
```

### Data table (Search for specific dates)

```{r}
datatable(appl_dt,
          options = list(pageLength = 20, info = FALSE))
```


# JP Morgan Stock Analysis

Column {data-width=500, .tabset .tabset-fade}
-----------------------------------------------------------------------

### From 2019 to 2022

```{r}
price_jpm <- getSymbols("JPM", auto.assign = FALSE, from="2019-01-01", to="2022-04-01")
price_jpm_a <- getSymbols("JPM", auto.assign=FALSE, from="2019-01-01", to="2020-02-01")
price_jpm_b <- getSymbols("JPM", auto.assign=FALSE, from="2020-02-01", to="2021-06-01")
price_jpm_c <- getSymbols("JPM", auto.assign=FALSE, from="2021-06-01", to="2022-04-01")
highchart(type="stock") %>% 
  hc_add_series(price_jpm_a, upColor = "#2ECC71 ", color = "#E74C3C") %>% 
  hc_add_series(price_jpm_b, upColor = "#2ECC71 ", color = "#E74C3C") %>% 
  hc_add_series(price_jpm_c, upColor = "#2ECC71 ", color = "#E74C3C") %>% 
  hc_add_series(SMA(na.omit(Cl(price_jpm)),n=50),name="SMA(50)") %>%
  hc_add_series(SMA(na.omit(Cl(price_jpm)),n=200),name="SMA(200)") %>%
  hc_title(text="JP Morgan Price Candle Stick Chart 2019-2022")
```

### Before Covid

```{r}
highchart(type="stock") %>% 
  hc_add_series(price_jpm_a, upColor = "#2ECC71 ", color = "#E74C3C") %>% 
  hc_title(text="JP Morgan Price Candle Stick Chart from 2019-2020 (before Covid)")
```


### During Covid

```{r}
highchart(type="stock") %>% 
  hc_add_series(price_jpm_b, upColor = "#2ECC71 ", color = "#E74C3C") %>% 
  hc_title(text="JP Morgan Price Candle Stick Chart 2020-2021 (during Covid)")
```


### After Covid

```{r}
highchart(type="stock") %>% 
  hc_add_series(price_jpm_c, upColor = "#2ECC71 ", color = "#E74C3C") %>% 
  hc_title(text="JP Morgan Price Candle Stick Chart 2021-2022 (after Covid)")
```

Column {data-width=300}
-----------------------------------------------------------------------

### JPM Highest Stock Price during Covid

```{r}
jpm_df_b <- data.frame(price_jpm_b)
jpm_high_b <- max(jpm_df_b[ ,2])
valueBox(round(jpm_high_b, digits = 2),
         caption = "JP Morgan Stock Highest price during Covid",
         color = "#2ECC71",
         icon = "fa-arrow-up")
```

### JPM Lowest Stock Price during Covid

```{r}
jpm_df_b <- data.frame(price_jpm_b)
jpm_low_b <- min(jpm_df_b[ ,3])
valueBox(round(jpm_low_b, digits = 2),
         caption = "JP Morgan Stock Lowest price during Covid",
         color = "#CD6155",
         icon = "fa-arrow-down")
```


### JPM Highest Stock price

```{r}
jpm_df <- data.frame(price_jpm)
jpm_dt <- jpm_df[ ,c(1:4)]
jpm_high_a <- max(jpm_df[,2])
valueBox(round(jpm_high_a, digits = 2), 
         caption = "JP Morgan Stock Highest price from 2019 to 2022",
         color = "#2ECC71",
         icon = "fa-arrow-up")
```

### JPM lowest Stock price 

```{r}
jpm_low_a <- min(jpm_df[,3])
valueBox(round(jpm_low_a, digits = 2), 
         caption = "JP Morgan Stock Lowest price from 2019 to 2022",
         color = "#CD6155",
         icon = "fa-arrow-down")
```

### Data table (Search for specific dates)

```{r}
datatable(jpm_dt,
          options = list(pageLength = 20, info = FALSE))
```

# Moderna Stock Analysis

Column {data-width=500, .tabset .tabset-fade}
-----------------------------------------------------------------------

### From 2019 to 2022

```{r}
price_mrna <- getSymbols("MRNA", auto.assign = FALSE, from="2019-01-01", to="2022-04-01")
price_mrna_a <- getSymbols("MRNA", auto.assign=FALSE, from="2019-01-01", to="2020-02-01")
price_mrna_b <- getSymbols("MRNA", auto.assign=FALSE, from="2020-02-01", to="2021-06-01")
price_mrna_c <- getSymbols("MRNA", auto.assign=FALSE, from="2021-06-01", to="2022-04-01")
highchart(type="stock") %>% 
  hc_add_series(price_mrna_a, upColor = "#2ECC71 ", color = "#E74C3C") %>% 
  hc_add_series(price_mrna_b, upColor = "#2ECC71 ", color = "#E74C3C") %>% 
  hc_add_series(price_mrna_c, upColor = "#2ECC71 ", color = "#E74C3C") %>% 
  hc_add_series(SMA(na.omit(Cl(price_mrna)),n=50),name="SMA(50)") %>%
  hc_add_series(SMA(na.omit(Cl(price_mrna)),n=200),name="SMA(200)") %>%
  hc_title(text="Moderna Price Candle Stick Chart 2019-2022")
```

### Before Covid

```{r}
highchart(type="stock") %>% 
  hc_add_series(price_mrna_a, upColor = "#2ECC71 ", color = "#E74C3C") %>% 
  hc_title(text="Moderna Price Candle Stick Chart from 2019-2020 (before Covid)")
```


### During Covid

```{r}
highchart(type="stock") %>% 
  hc_add_series(price_mrna_b, upColor = "#2ECC71 ", color = "#E74C3C") %>% 
  hc_title(text="Moderna Price Candle Stick Chart 2020-2021 (during Covid)")
```

### After Covid

```{r}
highchart(type="stock") %>% 
  hc_add_series(price_mrna_c, upColor = "#2ECC71 ", color = "#E74C3C") %>% 
  hc_title(text="Moderna Price Candle Stick Chart 2021-2022 (after Covid)")
```

Column {data-width=300}
-----------------------------------------------------------------------

### Moderna Highest Stock Price during Covid

```{r}
mrna_df_b <- data.frame(price_mrna_b)
mrna_high_b <- max(mrna_df_b[ ,2])
valueBox(round(mrna_high_b, digits = 2),
         caption = "Moderna Stock Highest price during Covid",
         color = "#2ECC71",
         icon = "fa-arrow-up")
```

### Moderna Lowest Stock Price during Covid

```{r}
mrna_df_b <- data.frame(price_mrna_b)
mrna_low_b <- min(mrna_df_b[ ,3])
valueBox(round(mrna_low_b, digits = 2),
         caption = "Moderna Stock Lowest price during Covid",
         color = "#CD6155",
         icon = "fa-arrow-down")
```


### Moderna Highest Stock price

```{r}
mrna_df <- data.frame(price_mrna)
mrna_dt <- mrna_df[ ,c(1:4)]
mrna_high_a <- max(mrna_df[,2])
valueBox(round(mrna_high_a, digits = 2), 
         caption = "Moderna Stock Highest price from 2019 to 2022",
         color = "#2ECC71",
         icon = "fa-arrow-up")
```

### Moderna lowest Stock price 

```{r}
mrna_low_a <- min(mrna_df[,3])
valueBox(round(mrna_low_a, digits = 2), 
         caption = "Moderna Stock Lowest price from 2019 to 2022",
         color = "#CD6155",
         icon = "fa-arrow-down")
```

### Data table (Search for specific dates)

```{r}
datatable(mrna_dt,
          options = list(pageLength = 20, info = FALSE))
```


# Tesla Stock Analysis

Column {data-width=500, .tabset}
-----------------------------------------------------------------------

### From 2019 to 2022

```{r}
price_tsla <- getSymbols("TSLA", auto.assign = FALSE, from="2019-01-01", to="2022-04-01")
price_tsla_a <- getSymbols("TSLA", auto.assign=FALSE, from="2019-01-01", to="2020-02-01")
price_tsla_b <- getSymbols("TSLA", auto.assign=FALSE, from="2020-02-01", to="2021-06-01")
price_tsla_c <- getSymbols("TSLA", auto.assign=FALSE, from="2021-06-01", to="2022-04-01")
highchart(type="stock") %>% 
  hc_add_series(price_tsla_a, upColor = "#2ECC71 ", color = "#E74C3C") %>% 
  hc_add_series(price_tsla_b, upColor = "#2ECC71 ", color = "#E74C3C") %>% 
  hc_add_series(price_tsla_c, upColor = "#2ECC71 ", color = "#E74C3C") %>% 
  hc_add_series(SMA(na.omit(Cl(price_tsla)),n=50),name="SMA(50)") %>%
  hc_add_series(SMA(na.omit(Cl(price_tsla)),n=200),name="SMA(200)") %>%
  hc_title(text="Tesla Price Candle Stick Chart 2019-2022")
```

### Before Covid

```{r}
highchart(type="stock") %>% 
  hc_add_series(price_tsla_a, upColor = "#2ECC71 ", color = "#E74C3C") %>% 
  hc_title(text="Tesla Price Candle Stick Chart from 2019-2020 (before Covid)")
```

### During Covid

```{r}
highchart(type="stock") %>% 
  hc_add_series(price_tsla_b, upColor = "#2ECC71 ", color = "#E74C3C") %>% 
  hc_title(text="Tesla Price Candle Stick Chart 2020-2021 (during Covid)")
```

### After Covid

```{r}
highchart(type="stock") %>% 
  hc_add_series(price_tsla_c, upColor = "#2ECC71 ", color = "#E74C3C") %>% 
  hc_title(text="Tesla Price Candle Stick Chart 2021-2022 (after Covid)")
```

Column {data-width=300}
-----------------------------------------------------------------------

### Apple Highest Stock Price during Covid

```{r}
tsla_df_b <- data.frame(price_tsla_b)
tsla_high_b <- max(tsla_df_b[ ,2])
valueBox(round(tsla_high_b, digits = 2),
         caption = "Tesla Stock Highest price during Covid",
         color = "#2ECC71",
         icon = "fa-arrow-up")
```

### Apple Lowest Stock Price during Covid

```{r}
tsla_df_b <- data.frame(price_tsla_b)
tsla_low_b <- min(tsla_df_b[ ,3])
valueBox(round(tsla_low_b, digits = 2),
         caption = "Tesla Stock Lowest price during Covid",
         color = "#CD6155",
         icon = "fa-arrow-down")
```


### Apple Highest Stock price

```{r}
tsla_df <- data.frame(price_tsla)
tsla_dt <- tsla_df[ ,c(1:4)]
tsla_high_a <- max(tsla_df[,2])
valueBox(round(tsla_high_a, digits = 2), 
         caption = "Tesla Stock Highest price from 2019 to 2022",
         color = "#2ECC71",
         icon = "fa-arrow-up")
```

### Apple lowest Stock price 

```{r}
tsla_low_a <- min(tsla_df[,3])
valueBox(round(tsla_low_a, digits = 2), 
         caption = "Tesla Stock Lowest price from 2019 to 2022",
         color = "#CD6155",
         icon = "fa-arrow-down")
```

### Data table (Search for specific dates)

```{r}
datatable(tsla_dt,
          options = list(pageLength = 20, info = FALSE))
```


# Amazon Stock Analysis

Column {data-width=500, .tabset .tabset-fade}
-----------------------------------------------------------------------

### From 2019 to 2022

```{r}
price_amzn <- getSymbols("AMZN", auto.assign = FALSE, from="2019-01-01", to="2022-04-01")
price_amzn_a <- getSymbols("AMZN", auto.assign=FALSE, from="2019-01-01", to="2020-02-01")
price_amzn_b <- getSymbols("AMZN", auto.assign=FALSE, from="2020-02-01", to="2021-06-01")
price_amzn_c <- getSymbols("AMZN", auto.assign=FALSE, from="2021-06-01", to="2022-04-01")
highchart(type="stock") %>% 
  hc_add_series(price_amzn_a, upColor = "#2ECC71 ", color = "#E74C3C") %>% 
  hc_add_series(price_amzn_b, upColor = "#2ECC71 ", color = "#E74C3C") %>% 
  hc_add_series(price_amzn_c, upColor = "#2ECC71 ", color = "#E74C3C") %>% 
  hc_add_series(SMA(na.omit(Cl(price_amzn)),n=50),name="SMA(50)") %>%
  hc_add_series(SMA(na.omit(Cl(price_amzn)),n=200),name="SMA(200)") %>%
  hc_title(text="Amazon Price Candle Stick Chart 2019-2022")
```


### Before Covid

```{r}
highchart(type="stock") %>% 
  hc_add_series(price_amzn_a, upColor = "#2ECC71 ", color = "#E74C3C") %>% 
  hc_title(text="Amazon Price Candle Stick Chart from 2019-2020 (before Covid)")
```


### During Covid

```{r}
highchart(type="stock") %>% 
  hc_add_series(price_amzn_b, upColor = "#2ECC71 ", color = "#E74C3C") %>% 
  hc_title(text="Amazon Price Candle Stick Chart 2020-2021 (during Covid)")
```


### After Covid

```{r}
highchart(type="stock") %>% 
  hc_add_series(price_amzn_c, upColor = "#2ECC71 ", color = "#E74C3C") %>% 
  hc_title(text="Amazon Price Candle Stick Chart 2021-2022 (after Covid)")
```

Column {data-width=300}
-----------------------------------------------------------------------

### Amazon Highest Stock Price during Covid

```{r}
amzn_df_b <- data.frame(price_amzn_b)
amzn_high_b <- max(amzn_df_b[ ,2])
valueBox(round(amzn_high_b, digits = 2),
         caption = "Amazon Stock Highest price during Covid",
         color = "#2ECC71",
         icon = "fa-arrow-up")
```

### Amazon Lowest Stock Price during Covid

```{r}
amzn_df_b <- data.frame(price_amzn_b)
amzn_low_b <- min(amzn_df_b[ ,3])
valueBox(round(amzn_low_b, digits = 2),
         caption = "Amazon Stock Lowest price during Covid",
         color = "#CD6155",
         icon = "fa-arrow-down")
```


### Amazon Highest Stock price

```{r}
amzn_df <- data.frame(price_amzn)
amzn_dt <- amzn_df[ ,c(1:4)]
amzn_high_a <- max(amzn_df[,2])
valueBox(round(amzn_high_a, digits = 2), 
         caption = "Amazon Stock Highest price from 2019 to 2022",
         color = "#2ECC71",
         icon = "fa-arrow-up")
```

### Apple lowest Stock price 

```{r}
amzn_low_a <- min(amzn_df[,3])
valueBox(round(amzn_low_a, digits = 2), 
         caption = "Amazon Stock Lowest price from 2019 to 2022",
         color = "#CD6155",
         icon = "fa-arrow-down")
```

### Data table (Search for specific dates)

```{r}
datatable(amzn_dt,
          options = list(pageLength = 20, info = FALSE))
```

# Comparison

Column {.tabset}
-----------------------------------------------------------------------

### Before Covid

```{r}
highchart(type="stock") %>% 
  hc_add_series(Cl(price_aapl_a), name="AAPL") %>% 
  hc_add_series(Cl(price_jpm_a), name="JPM") %>%
  hc_add_series(Cl(price_mrna_a), name="MRNA") %>%
  hc_add_series(Cl(price_tsla_a), name="TSLA") %>%
  # hc_add_series(Cl(price_amzn_a), name="AMZN") %>%
  hc_title(text="Apple vs JP Morgan vs Moderna vs Tesla vs Amazon Closing Price before Covid")
```

### During Covid

```{r}
highchart(type="stock") %>% 
  hc_add_series(Cl(price_aapl_b), name="AAPL") %>% 
  hc_add_series(Cl(price_jpm_b), name="JPM") %>%
  hc_add_series(Cl(price_mrna_b), name="MRNA") %>%
  hc_add_series(Cl(price_tsla_b), name="TSLA") %>%
  # hc_add_series(Cl(price_amzn_b), name="AMZN") %>%
  hc_title(text="Apple vs JP Morgan vs Moderna vs Tesla vs Amazon Closing Price during Covid")
```

### After Covid

```{r}
highchart(type="stock") %>% 
  hc_add_series(Cl(price_aapl_c), name="AAPL") %>% 
  hc_add_series(Cl(price_jpm_c), name="JPM") %>%
  hc_add_series(Cl(price_mrna_c), name="MRNA") %>%
  hc_add_series(Cl(price_tsla_c), name="TSLA") %>%
  # hc_add_series(Cl(price_amzn_c), name="AMZN") %>%
  hc_title(text="Apple vs JP Morgan vs Moderna vs Tesla Closing Price after Covid")
```

## {-}

### Returns

```{r}
# Calculate the stocks return
return_appl <- dailyReturn(Cl(price_aapl_b))
return_jpm <- dailyReturn(Cl(price_jpm_b))
return_mrna <- dailyReturn(Cl(price_mrna_b))
return_tsla <- dailyReturn(Cl(price_tsla_b))
return_amzn <- dailyReturn(Cl(price_amzn_b))

# Combine the returns as one data frame
returns <- data.frame(return_appl,return_jpm,return_mrna,return_tsla,return_amzn)
names(returns) <- c("return_appl","return_jpm","return_mrna","return_tsla","return_amzn")
returns <- as.xts(returns)

# Plot the returns
charts.PerformanceSummary(returns,main="Daily Return \nApple vs JP Morgan vs Moderna vs Tesla vs Amazon \nduring Covid")
```